home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / dbapg.arc / LEFTJUST.ASM < prev    next >
Encoding:
Assembly Source File  |  1984-08-05  |  1.1 KB  |  38 lines
  1. ; Subroutine.: LEFTJUST.ASM
  2. ; Author.....: Luis A. Castro
  3. ; Date.......: 06/15/83
  4. ; Notice.....: Copyright 1983, Ashton-Tate, All Rights Reserved
  5. ; Notes......: Left justify a character string.
  6. ; 
  7.     ORG    42000    ; LOAD IN dBASE II's FREE AREA 
  8.     SHLD    SAVEHL    ; SAVE HL REGISTER PAIR 
  9.     MOV    C,M    ; STORE LENGTH OF STRING TO COUNTER 
  10.     MOV    D,H    ; LOAD DE REGISTER PAIR
  11.     MOV    E,L    ; WITH HL REGISTER PAIR 
  12.     INX    D    ; INCREMENT TO FIRST CHAR OF STRING
  13.             ; ON DE PAIR 
  14. ; 
  15. LOOP:    INX    H    ; NEXT CHARACTER
  16.     MOV    A,M    ; FETCH CHARACTER
  17.     CPI    ' '    ; IS IT A SPACE?
  18.     JNZ    JUST    ; IF NOT A SPACE, THEN JUSTIFY 
  19.     DCR    C    ; DECREMENT COUNTER
  20.     JNZ    LOOP    ; REPEAT IF NOT END OF STRING
  21.     JZ    DONE    ; END OF STRING REACHED, EXIT
  22. ; 
  23. JUST:    MOV    A,M    ; FETCH CHARACTER
  24.     MVI    M,' '    ; REPLACE MEMORY WITH SPACE
  25.     STAX    D    ; STORE CHARACTER IN ACCUMULATOR 
  26.             ; TO NEXT AVAILABLE CHARACTER ON 
  27.             ; LEFT OF STRING 
  28.     INX    D    ; INCREMENT BOTH POINTERS 
  29.     INX    H
  30.     DCR    C    ; DECREMENT COUNTER
  31.     JNZ    JUST    ; REPEAT UNTIL END OF STRING
  32. ; 
  33. DONE:    LHLD    SAVEHL    ; RESTORE HL PAIR
  34.     RET
  35. ; 
  36. SAVEHL    DB    0,0
  37.     END
  38.